home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1984 January to June
/
Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64
/
test 8
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
454b
|
15 lines
5 rem--ahoy!--june issue--memory management test 8--prog page 81
10 rem:for tape-save first
20 rem:memory management test 8
30 rem:loads into standard ram in the commodore 64
60 if peek(251)=1 goto 100
70 t8$="[147]test 8 now active":print t8$
80 print"loading test 9 at 49152"
90 poke 49152,0:poke44,192:load"test 9",8:rem**leave off the ,8 for tape
100 print t8$
110 print "enter 9[146] for test 9"
130 get in$:if in$=""goto130
140 in=val(in$)
150 if in<>9 goto 110
170 poke 44,192:goto 10:rem block 49152